home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / cd-sup / newiconsv4 / install / install_newicons < prev    next >
Text File  |  1998-05-24  |  21KB  |  723 lines
  1. ; NewIcons 4.0 Installer Script
  2. ; $Ver: 40.1 (17-Aug-97)
  3. ; Written by Phil Vedovatti
  4. ; Brought to you by Team NewIcons
  5.  
  6. (set @default-dest "SYS:C")
  7.  
  8. (set #wrongversion
  9. (cat "You have an old version of the program 'Installer' "
  10.      "on your Amiga!\n\nThis installation needs at least Installer 42.9,\n\n"
  11.      "available on Aminet (ftp.wustl.edu)"))
  12.  
  13. (set #bad-kick
  14.    (cat "\n\nSorry! You must have Workbench 2.0 or"
  15.         "higher to to use this package."))
  16.  
  17. (set #no-classact
  18.    (cat "\nHmmm!  You don't seem to have the ClassAct 2.0"
  19.         "\nGUI system installed.  You can obtain the"
  20.         "\nlatest ClassAct classes via ftp on the"
  21.         "\nInternet at: \n\n ftp.warped.com/pub/amiga/classact/."
  22.         "\n\n Installation aborted!"))
  23.  
  24. (set #Help-classact
  25.    (cat "\nThis package requires ClassAct 2.0, which does not"
  26.         "\nappear to be installed on your system.  Select"
  27.         "\n'Continue' to intall the program anyway, or select"
  28.         "\n'Abort' to end the installation."))
  29.  
  30. (set #hello-message
  31.    (cat "\n\nThank you for trying NewIcons 4, the revolutionary"
  32.         "\nGraphical User Interface system for the Amiga."
  33.         "\nPlease read the documentation to get the most out"
  34.         "\nof this package.  Nothing will be deleted from your"
  35.         "\nsystem with this installation program.  Your old WB"
  36.         "\nicons will still be there, even though it won't look"
  37.         "\nlike it on your screen.  If you don't understand any"
  38.         "\npart of the installation, click on the \"Help\" gadget"
  39.         "\nfound throughout the installation for more information."
  40.         "\n\nCLICK TO PROCEED"))
  41.  
  42. (set #hello-NIuser
  43.    (cat "\nGreetings current NewIcons user!\n"
  44.         "\nThanks for your continued support for NewIcons."
  45.         "\nPlease check the documentation for the new changes"
  46.         "\nto this version.  NewIcons 4 is faster, more user"
  47.         "\nfriendly, and sports a new 32 color iconset for you"
  48.         "\npower users.  "
  49.         "\n\nIf you don't understand any part of the installation,"
  50.         "\nclick on the \"Help\" gadget found throughout the"
  51.         "\ninstallation for more information."
  52.         "\n\nCLICK TO PROCEED"))
  53.  
  54. (set #welcome-message
  55.    (cat "\nThe NewIcons System ©1993-1997 Team NewIcons"))
  56. (set #install-which
  57.    (cat "\nWhich part(s) of the NewIcons System would"
  58.         "\nyou like to install onto your hard drive?\n"))
  59.  
  60. (set #MEorHE
  61.    (cat "\nYour computer setup allows for installation of one"
  62.         "\nof the more advanced versions of the newicons.library."
  63.         "\n\nWhich version would you prefer to install"
  64.         "\non your system?"
  65.         "\n(Click on 'Help' if you're not sure which to choose.)\n"))
  66.  
  67. (set #MEHEhelp
  68.    (cat "\n\nThe Middle-End library supports an optional dithering"
  69.         "\nmode, useful if you use a Workbench screenmode with"
  70.         "\nfewer colors (e.g. 16 colors or less), and does not"
  71.         "\nsupport the graphics card RTG mode."
  72.         "\n\nThe High End library has the dithering code removed"
  73.         "\nfor additional icon-loading speed, and has an optional"
  74.         "\nRTG mode if you have a graphics card.  If you run"
  75.         "\nyour Workbench in 32 or more colors (AGA), or have a"
  76.         "\ngraphics card, installation of the High End library"
  77.         "\nis recommended."))
  78.  
  79. (set #install-library
  80.    (cat "\n\nInstalling NewIcon.library to LIBS:."))
  81.  
  82. (set #install-library-help
  83.    (cat "\n\nThis library is required to use NewIcons."))
  84.  
  85. (set #install-newicons
  86.    (cat "\n\nCopying the NewIcons executable file"
  87.         "\n and support files to C:"))
  88.  
  89. (set #install-newicons-help
  90.    (cat "\n\nThis section installs NewIcons, InjectBrush"
  91.         "\nPatchOpenWB and ShowNI to your C: directory."))
  92.  
  93. (set #installdrawers
  94.    (cat "\nThe Update Drawers utility allows you to select"
  95.         "\nand install the drawer image of your choice to"
  96.         "\nall subdirectories in a drawer or partition.\n"
  97.         "\nWould you like to update some partitions or"
  98.         "\nsubdirectories with a new drawer image now?"))
  99.  
  100. (set #insdraw-help
  101.    (cat "\nThis part of the installer will execute the"
  102.         "\nUpdate drawers utility, allowing you to install"
  103.         "\nNewIcon drawer images to the drawers and sub-"
  104.         "\ndrawers of the partition or drawer you select."
  105.         "\n\nIt will add a NewIcon drawer image to ALL the"
  106.         "\ndrawer icons in that selected partition or drawer."
  107.         "\n\nIf you are unsure that you want to do this,"
  108.         "\nskip this portion of the installation by"
  109.         "\nselecting NO."))
  110.  
  111. (set #selectdir
  112.    (cat "Select a drawer or partition.  The default drawer"
  113.         "\nimage icon will be installed to all subdirectories"
  114.         "\nof your selection.  The icon of the actual drawer"
  115.         "\nor partition you selected will not be affected."))
  116.  
  117. (set #seldirhelp
  118.    (cat "\nThis part of the installer will let you install"
  119.         "\nthe default drawer NewIcon image to all of the"
  120.         "\nsubdirectories of the drawer or partition you"
  121.         "\nhave selected."
  122.         "\n\nThe actual icon of the selected item (the top"
  123.         "\ndrawer or partition) will not be affected."
  124.         "\n\nIf you are unsure that you want to do this,"
  125.         "\nskip this portion of the installation by leaving"
  126.         "\nthe selection entry blank, and click 'Proceed'."))
  127.  
  128. (set #moredrawers
  129.    (cat "\n\nWould you like to install more drawer images?"
  130.         "\n\nSelect YES to select another drawer or partition."
  131.         "\n\nSelect NO to continue with the remainder of the"
  132.         "\nNewIcons System installation."))
  133.  
  134. (set #moredraw-help
  135.    (cat "\nSelect YES if you would like to add more default"
  136.         "\ndrawer images to all the subdirectories of another"
  137.         "\npartition or drawer."
  138.         "\n\nSelect NO to move on with the remainder of the"
  139.         "\ninstallation process."))
  140.  
  141. (set #installdisk
  142.    (cat "\nThis part of the installer lets you customize the"
  143.         "\ndisk images that appear on the Workbench for your"
  144.         "\nhard drive partitions and other available devices."
  145.         "\nYou will be given several image choices to choose"
  146.         "\nfrom.  Would you like to do this now?"))
  147.  
  148. (set #insdisk-help
  149.    (cat "\nIf you select 'Yes', you will be presented with"
  150.         "\na requester asking you which device you would"
  151.         "\nlike to update with a new disk icon image.  Once"
  152.         "\nyou have selected the device to be updated, you"
  153.         "\nwill be given a choice from several icon images"
  154.         "\nto select as the disk icon image for that chosen"
  155.         "\n\ndevice."
  156.         "\n\n If you do not want to update your disk icons"
  157.         "\nwith a new image now, select 'No' instead."))
  158.  
  159. (set #selectdisk
  160.    (cat "Select a hard disk partition or device.  You will"
  161.         "\nthen be given a choice of icons to select as the"
  162.         "\ndisk icon for that device. All subdirectories,"
  163.         "\files, and other device icons will not be affected."))
  164.  
  165. (set #seldiskhelp
  166.    (cat "\nThis part of the installer will let you install"
  167.         "\nan icon image to be used for the disk icon of"
  168.         "\na selected device (hard disk partition, floppy"
  169.         "\ndisk, ZIP disks, etc."
  170.         "\n\nNo files other than the 'disk.info' file for"
  171.         "\nthat device will be updated."
  172.         "\n\nIf you are unsure that you want to do this,"
  173.         "\nskip this portion of the installation by leaving"
  174.         "\nthe selection entry blank, and click 'Proceed'."))
  175.  
  176. (set #moredisks
  177.    (cat "\n\nWould you like to install more disk images?"
  178.         "\n\nSelect YES to select another device."
  179.         "\n\nSelect NO to continue with the remainder of the"
  180.         "\nNewIcons System installation."))
  181.  
  182. (set #moredisk-help
  183.    (cat "\nSelect YES if you would like to add more default"
  184.         "\ndisk images to selected disk devices."
  185.         "\n\nSelect NO to move on with the remainder of the"
  186.         "\ninstallation process."))
  187.  
  188. (set #install-icons
  189.    (cat "\n\nInstalling the NewIcons icon images to your"
  190.         "\nSYS: partition."
  191.         "\n\nYour old icons will NOT be removed."
  192.         "\n\nNOTE: make sure you have the standard Amiga 'list'"
  193.         "\ncommand in your command path before proceeding."
  194.         "\n\nInstalling may take some time...patience."))
  195.  
  196. (set #install-icons-help
  197.    (cat "\n\nThe new icon images will be embedded in"
  198.         "\nthe tool types of your existing .info"
  199.         "\nfiles.  The tooltype lines will be"
  200.         "\ninvisible once NewIcons is running"
  201.         "\nso operation will be totally transparent"
  202.         "\nto the user."))
  203.  
  204. (set #tools-dest
  205.    (cat "\nWhich drawer would you like the NewIcon"
  206.         "\nmanipulation utilities to be installed?"
  207.         "\nA drawer will NOT be created."))
  208.  
  209. (set #install-prefs
  210.    (cat "\nInstalling NewIconsPrefs to your"
  211.         "\nSys:prefs directory."))
  212.  
  213. (set #install-prefs-help
  214.    (cat "\nUse this program to configure NewIcons!"))
  215.  
  216.  
  217. (set #startup-change
  218.    (cat "\nNewIcons V3.0 and above requires this line in"
  219.         "\nyour user startup to launch it.  Shall I add"
  220.         "\n\n'Run <NIL: >NIL: c:NewIcons'"
  221.         "\n\nto your S:user-startup file?"
  222.         "\n\n(You may need to remove the old line manually"
  223.         "\nif you are updating and didn't originally"
  224.         "\ninstall NewIcons using the Installer utility.)"))
  225.  
  226. (set #install-deficons
  227.    (cat "\n\nInstalling the DefIcons daemon to your"
  228.         "\nC: directory, and copying default icons"
  229.         "\nto your Envarc:sys directory."))
  230.  
  231. (set #install-deficons-help
  232.    (cat "\nThis sections installs the Deficons program"
  233.         "\nand copies the required def_icons to your"
  234.         "\nENVARC: directory."))
  235.  
  236. (set #move-olddefs-dir
  237.    (cat "The installer will move your old default"
  238.         "\nicons to another location for safe keeping."
  239.         "\nWhere would you like me to create a directory"
  240.         "\nto put them in?"))
  241.  
  242. (set #move-olddefs-help
  243.    (cat "\nThis section copies your old default icons to"
  244.         "\na safe place instead of overwriting them."
  245.         "\nShould you wish to deinstall Deficons, you"
  246.         "\nWill have them available to restore."))
  247.  
  248. (set #move-olddefs
  249.    (cat "Moving your old default icons to \n"
  250.         destdir))
  251.  
  252. (set #install-envarc
  253.    (cat "\nCopying the default icons and brainfile"
  254.         "\nto ENVARC: so DefIcons can use them.\n"))
  255.  
  256. (set #install-envarc-help
  257.    (cat "\n\nThis section installs the icons that DefIcons"
  258.         "\nwill use to display icon images for files that"
  259.         "\ndon't have icons already attached to them."))
  260.  
  261. (set #startup-deficons
  262.    (cat "\n\nAdding a line to your S:user-Startup file"
  263.         "\nto launch DefIcons whenever the system"
  264.         "\nis booted up."))
  265.  
  266. (set #powb-message
  267.    (cat "\n\nIf you have installed NewIcons, you must "
  268.            "add a line to your S:Startup-Sequence:\n\n"
  269.            "C:PatchOpenWB\n"
  270.            "\nto fix a bug in the 3.x operating system!"
  271.            "\n\n Make sure to place the line after Setpatch"
  272.            "\nand before IPrefs."
  273.            "\n\nMCP users and MCX users using the PatchOpenWB"
  274.            "\noption can skip adding this line."))
  275.  
  276. (set #docs-dest
  277.    (cat "Where would you like the NewIcons Documentation"
  278.         "\nGuide to be installed?"))
  279.  
  280.  
  281. (set #incdir
  282.    (cat "Where would you like the include files to go?"))
  283.  
  284. (set #srcdir
  285.    (cat "Where would you like the example source code"
  286.     "\nto be installed?"))
  287.  
  288. (set #autoddir
  289.    (cat "Where would you like the Autodoc material"
  290.     "\n to be copied to?"))
  291.  
  292. (set #emoddir
  293.    (cat "Where would you like the E modules to be"
  294.         "\ninstalled to?"))
  295.  
  296. (set #exit-message
  297.    (cat "\nPlease reboot your system to fully activate\n"
  298.         "the new NewIcons System, then set your"
  299.         "\npreferences with the Prefs program."
  300.         "\n\n\nWe hope you enjoy this package!"
  301.         "\n\n\nCheck out the NewIcons Web Page at"
  302.         "\nhttp://www.amiganet.org/NewIcons/"))
  303.  
  304.  
  305.  
  306. ; ------------------------------------
  307. ; Check Installer & Kickstart Version
  308. ; ------------------------------------
  309.  
  310. (if (< @installer-version 2752521)
  311.   (
  312.     (message #wrongversion (all))
  313.     (exit (quiet))
  314.   )
  315. )
  316.  
  317.  (if (< (getversion "LIBS:version.library") (* 37 65536))
  318.         (abort #bad-kick)
  319.  )
  320.  
  321.  
  322. ; ------------------------------
  323. ; Check if ClassAct 2.0 installed
  324. ; ------------------------------
  325.  
  326. (if (< (getversion "libs:window.class") (* 42 65536))
  327.    (abort #no-classact)
  328. )
  329.  
  330. ; ------------------------------
  331. ; Greetings, user!
  332. ; ------------------------------
  333.  
  334. (set NIon (run "/c/isnirunning" (safe)))
  335.      (if (> NIon 0)
  336.         (message #hello-NIuser (all))
  337.         (message #hello-message (all))
  338.      )
  339.  
  340. (welcome #welcome-message)
  341.  
  342.  
  343. ; ------------------------------
  344. ; What should I install?
  345. ; ------------------------------
  346.  
  347. (complete 0)
  348. (set InstallOpt
  349.       (askoptions (prompt #install-which)
  350.                   (help @askoptions-help)
  351.                   (choices "NewIcons" "DefIcons" "New 32 Color Icon Set" "Documentation" "Developer Data")
  352.                   (default 15)
  353.       )
  354. )
  355.  
  356.  
  357. ; ------------------------------
  358. ; Install NewIcon.library
  359. ; ------------------------------
  360.  
  361. (complete 10)
  362.  
  363.   (if (OR (patmatch (database "cpu") "68000|68010")
  364.  
  365.         (< (getversion "LIBS:version.library") (* 39 65536)
  366.        )
  367.       )
  368.  
  369.       (copylib
  370.            (source "/libs/LE/newicon.library")
  371.            (dest "libs:")
  372.            (prompt #install-library)
  373.            (help #install-library-help)
  374.            (confirm)
  375.       )
  376.  
  377.      ((set name
  378.            (askchoice
  379.                 (prompt #MEorHE)
  380.                 (help #MEHEhelp)
  381.                 (choices "Middle-End library" "High End library")
  382.                 (if (patmatch (database "chiprev") "AA")
  383.                      (default 1)
  384.                      (default 0)
  385.                 )
  386.            )
  387.       )
  388.  
  389.       (if (= name 0)
  390.            (copylib
  391.                 (source "/libs/ME/newicon.library")
  392.                 (dest "libs:")
  393.                 (prompt #install-library)
  394.                 (help #install-library-help)
  395.                 (confirm)
  396.            )
  397.  
  398.  
  399.  
  400.            (copylib
  401.                 (source "/libs/HE/newicon.library")
  402.                 (dest "libs:")
  403.                 (prompt #install-library)
  404.                 (help #install-library-help)
  405.                 (confirm)
  406.            )
  407.       )
  408.      )
  409.    )
  410.  
  411.  
  412. ;--------------------------------------------------------
  413. ; Install NewIcons and support files
  414. ;--------------------------------------------------------
  415.  
  416. (complete 20)
  417. (if (BITAND InstallOpt 1)
  418.  
  419.   ((copylib
  420.       (prompt #install-newicons)
  421.       (source "/C/NewIcons")
  422.       (dest "c:")
  423.       (help #install-newicons-help)
  424.    )
  425.  
  426.    (copylib
  427.       (source "/C/InjectBrush")
  428.       (dest "c:")
  429.    )
  430.  
  431.    (copylib
  432.       (source "/C/PatchOpenWB")
  433.       (dest "c:")
  434.    )
  435.  
  436.    (copylib
  437.       (source "/C/ShowNI")
  438.       (dest "c:")
  439.    )
  440.  
  441.  
  442.    (complete 30)
  443.  
  444.    (set destdir
  445.       (askdir
  446.             (prompt #tools-dest)
  447.             (help @askdir-help)
  448.             (default "Sys:Utilities")
  449.       )
  450.    )
  451.  
  452.    (copyfiles
  453.       (source "/Utilities/CopyNewIcon")
  454.       (dest destdir)
  455.       (infos)
  456.    )
  457.  
  458.    (copyfiles
  459.       (source "/Utilities/CreateDefaultIcon")
  460.       (dest destdir)
  461.       (infos)
  462.    )
  463.  
  464.    (copyfiles
  465.       (source "/Utilities/KillNewIcon")
  466.       (dest destdir)
  467.       (infos)
  468.    )
  469.  
  470.    (copyfiles
  471.       (source "/Utilities/UpdateDrawers")
  472.       (dest destdir)
  473.       (infos)
  474.    )
  475.  
  476.  
  477.    (complete 35)
  478.    (if (OR (AND (= NIon 0) (<> (getversion "newicon.library" (resident)) (* 39 65536))) (= NIon 5))
  479.          ((startup "NewIcons"
  480.             (prompt #startup-change)
  481.             (command "Run <NIL: >NIL: c:NewIcons")
  482.             (help @startup-help)
  483.           )
  484.          )
  485.    )
  486.    (complete 40)
  487.  
  488.    (copylib
  489.       (prompt #install-prefs)
  490.       (source "/prefs/NewIconsPrefs")
  491.       (dest "Sys:prefs")
  492.       (help #install-prefs-help)
  493.       (confirm)
  494.       (infos)
  495.    )
  496.  
  497.    (run "/prefs/convertprefs")
  498.  
  499.   )
  500. )
  501.  
  502. ;------------------------------
  503. ;Install Icons
  504. ;------------------------------
  505. (complete 50)
  506. (if (BITAND InstallOpt 4)
  507.   ((set looper
  508.         (askbool
  509.              (prompt #installdrawers)
  510.              (help #insdraw-help)
  511.              (choices "Yes" "No")
  512.         )
  513.    )
  514.         (while (= looper 1)
  515.              (set destdir
  516.                 (askdir
  517.                     (prompt #selectdir)
  518.                     (help #seldirhelp)
  519.                     (disk)
  520.                     (default "")
  521.                 )
  522.              )
  523. ;             (set dirimage
  524.                 (run (cat "/Utilities/UpdateDrawers `/C/ShowNI SELECT drawers/d1.info drawers/d2.info drawers/d3.info drawers/d4.info drawers/d5.info drawers/d6.info`" " "destdir)(safe))
  525. ;             )
  526. ;             (working "Updating drawers...")
  527. ;             (run (cat "/Utilities/UpdateDrawers drawers/"dirimage " " destdir) (safe))
  528.              (set looper
  529.                 (askbool
  530.                     (prompt #moredrawers)
  531.                     (help #moredraw-help)
  532.                     (choices "Yes" "No")
  533.                 )
  534.              )
  535.         )
  536.  
  537.    (set looper 0)
  538.    ((set looper
  539.         (askbool
  540.              (prompt #installdisk)
  541.              (help #insdisk-help)
  542.              (choices "Yes" "No")
  543.         )
  544.     )
  545.         (while (= looper 1)
  546.              (set destdisk
  547.                 (askdir
  548.                     (prompt #selectdisk)
  549.                     (help #seldiskhelp)
  550.                     (disk)
  551.                     (default "SYS:")
  552.                 )
  553.              )
  554.              (run (cat "/Utilities/CopyNewIcon `/C/ShowNI SELECT disks/d1.info disks/d2.info disks/d3.info disks/d4.info disks/d5.info disks/d6.info disks/d7.info disks/d8.info`" " "destdisk"disk.info")(safe))
  555.              (set looper
  556.                 (askbool
  557.                     (prompt #moredisks)
  558.                     (help #moredisk-help)
  559.                     (choices "Yes" "No")
  560.                 )
  561.              )
  562.         )
  563.    )
  564.  
  565.      (message #install-icons)
  566.         (if (AND (= NIon 0) (<> (getversion "newicon.library" (resident)) (* 39 65536)))
  567.       (run "run <NIL: >NIL: /c/NewIcons")
  568.         )
  569.         (working "Installing the icon set...patience.")
  570.         (execute "Install_Icons"
  571.         (help #install-icons-help)
  572.      )
  573.  
  574.  
  575.   )
  576. )
  577.  
  578. ;------------------------------
  579. ;Install Deficons
  580. ;------------------------------
  581. (complete 70)
  582. (if (BITAND InstallOpt 2)
  583.  
  584.  
  585.   ((set destdir
  586.       (askdir
  587.            (prompt #move-olddefs-dir)
  588.            (help #move-olddefs-help)
  589.            (default "Sys:Storage")
  590.       )
  591.    )
  592.  
  593.    (set destdir
  594.       (tackon destdir "Old_Def_icons")
  595.    )
  596.  
  597.    (makedir destdir
  598.    )
  599.  
  600.    (complete 80)
  601.  
  602.    (copyfiles
  603.       (prompt #move-olddefs)
  604.       (source "Envarc:sys")
  605.       (dest destdir)
  606.       (pattern "def#?")
  607.       (help #move-olddefs-help)
  608.    )
  609.  
  610.    (copylib
  611.       (prompt #install-deficons)
  612.       (source "/C/DefIcons")
  613.       (dest "C:")
  614.       (help #install-deficons-help)
  615.       (confirm)
  616.    )
  617.  
  618.    (copyfiles
  619.       (prompt #install-envarc)
  620.       (source "/envarc")
  621.       (dest "ENVARC:")
  622.       (all)
  623.       (infos)
  624.       (help #install-envarc-help)
  625.    )
  626.  
  627.    (startup "DefIcons"
  628.       (prompt #startup-deficons)
  629.       (command "DefIcons")
  630.       (help @startup-help)
  631.    )
  632.   )
  633. )
  634.  
  635.  
  636. ;------------------------------
  637. ;Install Documentation
  638. ;------------------------------
  639. (complete 90)
  640. (if (BITAND InstallOpt 8)
  641.  
  642.    ((set destdir
  643.       (askdir
  644.             (prompt #docs-dest)
  645.             (help @askdir-help)
  646.             (default "Help:")
  647.       )
  648.     )
  649.     (copyfiles
  650.       (source "/NewIcons.guide")
  651.       (dest destdir)
  652.       (infos)
  653.     )
  654.    )
  655. )
  656.  
  657. ;------------------------------
  658. ;Install Developer Data
  659. ;------------------------------
  660. (complete 95)
  661. (if (BITAND InstallOpt 16)
  662.    ((set destdir
  663.         (askdir
  664.             (prompt #incdir)
  665.             (help @askdir-help)
  666.             (default "include:")
  667.         )
  668.     )
  669.     (copyfiles
  670.         (source "/Developers/Include")
  671.         (dest destdir)
  672.         (all)
  673.     )
  674.     ((set destdir
  675.         (askdir
  676.             (prompt #srcdir)
  677.             (help @askdir-help)
  678.             (default "Work:")
  679.         )
  680.      )
  681.     )
  682.     (copyfiles
  683.         (source "/Developers/Source")
  684.         (dest destdir)
  685.         (all)
  686.     )
  687.     ((set destdir
  688.         (askdir
  689.             (prompt #autoddir)
  690.             (help @askdir-help)
  691.             (default "Work:")
  692.         )
  693.      )
  694.     )
  695.     (copyfiles
  696.         (source "/Developers/Autodocs")
  697.         (dest destdir)
  698.         (all)
  699.     )
  700.     (if (exists "EModules:" (noreq))
  701.        ((set destdir
  702.            (askdir
  703.                (prompt #emoddir)
  704.                (help @askdir-help)
  705.                (default "Emodules:")
  706.            )
  707.         )
  708.        (copyfiles
  709.            (source "/Developers/Emodules")
  710.            (dest destdir)
  711.            (all)
  712.        )
  713.       )
  714.     )
  715.    )
  716. )
  717.  
  718.  
  719. (complete 99)
  720. (message #powb-message (all))
  721. (complete 100)
  722. (message #exit-message (all))
  723. (exit (quiet))